C/C++ Users Group Library 1996 July/C-C++ Users Group Library July 1996.iso/vol_200/247_02/pi.c

C/C++ Source or Header | 1989-04-17 | 384 b | 18 lines

/*
 *  Program to calculate pi
 */

#include <stdio.h>
#include "miracl.h"

main()
{ /* Calculate pi using Guass-Legendre method */
    flash pi;
    mirsys(-35,MAXBASE);
    pi=mirvar(0);
    printf("Calculating pi... \n");
    POINT=ON;
    fpi(pi);
    cotnum(pi,stdout);
}